Creating an Object

The Visual Basic example below shows the creation of a simple Milestones Professional schedule.

Public Sub Example4()

Set objMilestones = CreateObject("Milestones")

With objMilestones

  .Activate

  For nCounter = 1 To 7

  strTemp = "This is Task RowA horizontal row on the schedule, usually containing the name of a project step and important milestone dates for that step. " + CStr(nCounter)

  .PutCell nCounter, 1, strTemp

  strTemp = CStr(nCounter + 1) + "/1/1997"

  .AddSymbol nCounter, strTemp, nCounter

  Next nCounter

  .Refresh

  .Print

  .Close

End With

Exit Sub

End Sub